home *** CD-ROM | disk | FTP | other *** search
/ NOVA - For the NeXT Workstation / NOVA - For the NeXT Workstation.iso / SourceCode / xView / theX.psw < prev    next >
Text File  |  1992-12-19  |  290b  |  11 lines
  1. defineps drawX(float width,height,penWidth,backRed,backGreen,backBlue,xRed,xGreen,xBlue)
  2.     backRed backGreen backBlue setrgbcolor
  3.     0 0 width height rectfill
  4.     penWidth setlinewidth 
  5.     xRed xGreen xBlue setrgbcolor
  6.     0 0 moveto
  7.     width height lineto
  8.     0 height moveto
  9.     width 0 lineto
  10.     stroke
  11. endps